; Instrument tramp-tests.el

diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index a85eed0302a66e7fc0674dc5c146ec09d20ca39a..6bbe9691286a65e959603be4873866c7b3884010 100644 (file)
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -648,6 +648,9 @@ This checks also `file-name-as-directory', `file-name-directory',
        (unless (zerop (length file))
          (setq file (format "/%s:" file))
          (should (string-equal (directory-file-name file) file))
+          (when (getenv "NIX_STORE")
+            (message "file %s non-essential %s tramp-completion-mode-p %s"
+                     file non-essential (tramp-completion-mode-p)))
          (should
           (string-equal
            (file-name-as-directory file)